home *** CD-ROM | disk | FTP | other *** search
/ HamCall (October 1991) / HamCall (Whitehall Publishing)(1991).bin / bcast / bcstcble / wire.asc < prev    next >
Text File  |  1990-10-14  |  727b  |  16 lines
  1. 1     CLS
  2. 2     INPUT"What is your wire gauge   ";AWG:INPUT "How many (total loop) Feet ";FEET
  3. 3     INPUT"Speaker load in ohms ";S
  4. 4     RHO=10.575:CONSTANT=105532!*.794^AWG:OHMS=RHO*FEET/CONSTANT
  5. 5     PERCENT=(OHMS/(OHMS+S))*100:PRINT
  6. 6     PRINT FEET;"Feet of";AWG;"gauge copper wire is";CINT(OHMS*10)/10;"ohms at 68 degrees F"
  7. 7     PRINT CINT(PERCENT*100)/100;"percent of your power will be lost in the wire."
  8. 8     P=1-(PERCENT/100):DBLOSS=10*LOG(P)/LOG(10)
  9. 9     PRINT" The loss is equal to ";CINT(DBLOSS*10)/10;"dB of power and SPL."
  10. 10    PRINT:GOTO 2
  11. 20    END
  12. 30    ' FROM TBS BBS SERVICE WITH PERMISSION
  13. 40    ' CALL 404/320-6202 TO SIGN ON
  14. 50    ' VOICE 404/321-1600
  15. 60    ' sysop is Brian TULLIS
  16.